home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Tubes / TubesTitle.AMOS / TubesTitle.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1995-11-18  |  7.6 KB  |  301 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *            Tubes V1.6             *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. Hide 
  9. If Chip Free>350000 Then NEWTITLE[0] Else NEWTITLE[1]
  10. End 
  11. Procedure NEWTITLE[CHIP]
  12.   RASLIN=180-( Extension_8_060E =68000)*20
  13.   If CHIP=1 Then Goto LOWCHIP
  14.   Unpack 13 To 0
  15.   Screen Open 1,320,256,16,0 : Screen Hide 
  16.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  17.   Screen Open 2,320,256,16,0 : Screen Hide 
  18.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  19.   Screen Open 3,320,256,16,0 : Screen Hide 
  20.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  21.   Screen Open 4,320,256,16,0 : Screen Hide 
  22.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  23.   Screen Open 6,320,256,2,0 : Screen Hide 
  24.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  25.    Extension_8_1204 12
  26.   Gr Writing 0
  27.   Screen Open 7,320,256,2,0 : Screen Hide 
  28.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
  29.   Palette 0,$F
  30.    Extension_8_128A 7
  31.   MX=160 : MY=128
  32.   WIN=0 : ZP=0 : S=4 : W=32 : DD=Rnd(1023) : T1=Rnd(5)+1 : T2=Rnd(5)+1
  33.   If Extension_8_060E =68000 Then W=64
  34.   FRAME=0 : ANI=0 : BLPC=0
  35.   Screen 7
  36.   Repeat 
  37.     Gosub DRARING
  38.   Until ANI=1
  39.   Screen 0
  40.   Double Buffer : Autoback 0
  41.   G=$FFF
  42.   Fade 3,0,$1,$2,$3,$4,$5,$6,$7,$0,$2,$4,$6,$8,$A,$C,$E,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G
  43.   Screen 7
  44.   FAD=0
  45.   TITLE=1 : TIME=400 : OANI=ANI
  46.   Clear Key 
  47.   Do 
  48.     While Amos Here=0 : Multi Wait : Wend 
  49.     Wait Vbl 
  50.     Exit If Mouse Key<>0 or Inkey$<>"" or Fire(1)<>0
  51.     If FAD=-1 Then Extension_8_12B2 6,0 To 0,4 : FAD=0
  52.     If FAD=0
  53.        Extension_8_12B2 3-ANI*2+BLPC/4,BLPC and 3 To 0,3
  54.       Add BLPC,1,0 To 7
  55.       Repeat 
  56.         Gosub DRARING
  57.       Until Extension_8_0338 >RASLIN
  58.     Else 
  59.       Screen 0
  60.       If Colour(0)=G and FAD>0
  61.         Screen 6
  62.          Extension_8_121C 6,0
  63.         On TITLE Gosub T1,T2,T3,T4,T5,T6
  64.         Add TITLE,1,1 To 6
  65.          Extension_8_12B2 6,0 To 0,4
  66.         Screen 0
  67.         Fade 1,0,$1,$2,$3,$4,$5,$6,$7,$0,$2,$4,$6,$8,$A,$C,$E,$FFF,$EFE,$DFD,$CFC,$BFB,$AFA,$9F9,$8F8,$FFF,$DFD,$BFB,$9F9,$7F7,$5F5,$3F3,$1F1
  68.          Extension_8_12B2 3-ANI*2+BLPC/4,BLPC and 3 To 0,3
  69.         FAD=-1
  70.       Else 
  71.          Extension_8_12B2 1+ANI*2+BLPC/4,BLPC and 3 To 0,3
  72.       End If 
  73.       Screen 7
  74.       Add BLPC,1,0 To 7
  75.     End If 
  76.     If OANI<>ANI
  77.       If TIME>300
  78.         OANI=ANI
  79.         Screen 0
  80.         Fade 1,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G,G
  81.         FAD=1
  82.         Screen 7 : TIME=0
  83.       Else 
  84.         FAD=1
  85.       End If 
  86.     End If 
  87.     Screen Swap 0 : Inc TIME
  88.   Loop 
  89.   Screen 0
  90.   Fade 3
  91.   For A=0 To 64
  92.     If MUS Then Extension_8_10C6 64-A
  93.      Extension_8_12B2 3-ANI*2+BLPC/4,BLPC and 3 To 0,3
  94.     Add BLPC,1,0 To 7
  95.     Screen Swap 0 : Wait Vbl 
  96.   Next 
  97.   If MUS Then Extension_8_10A8 
  98.   Screen Close 0
  99.   Screen Close 1
  100.   Screen Close 2
  101.   Screen Close 3
  102.   Screen Close 4
  103.   Screen Close 6
  104.   Screen Close 7
  105. Pop Proc
  106. LOWCHIP:
  107.   Screen Open 0,320,256,4,0
  108.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  109.   Palette 0,0,0,0
  110.   Screen Open 1,320,256,16,0 : Screen Hide 
  111.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  112.   Screen Open 2,320,256,16,0 : Screen Hide 
  113.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  114.   Screen Open 6,320,256,2,0 : Screen Hide 
  115.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  116.    Extension_8_1204 12
  117.   Gr Writing 0
  118.   Screen Open 7,320,256,2,0 : Screen Hide 
  119.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
  120.    Extension_8_128A 7
  121.   MX=160 : MY=128
  122.   WIN=0 : ZP=0 : S=2 : W=32 : DD=Rnd(1023) : T1=Rnd(5)+1 : T2=Rnd(5)+1
  123.   If Extension_8_060E =68000 Then W=64
  124.   FRAME=0 : ANI=0 : BLPC=0
  125.   Screen 7
  126.   Repeat 
  127.     Gosub DRARING
  128.   Until ANI=1
  129.   Screen 0
  130.   Double Buffer : Autoback 0
  131.   G=$FFF
  132.   Fade 3,0,$F,G,G
  133.   Screen 7
  134.   FAD=0
  135.   TITLE=1 : TIME=300 : OANI=ANI
  136.   Do 
  137.     While Amos Here=0 : Multi Wait : Wend 
  138.     Wait Vbl 
  139.     Exit If Mouse Key<>0 or Inkey$<>"" or Fire(1)<>0
  140.     If FAD=-1 Then Extension_8_12B2 6,0 To 0,1 : FAD=0
  141.     If FAD=0
  142.        Extension_8_12B2 2-ANI,BLPC To 0,0
  143.       Add BLPC,1,0 To 3
  144.       Repeat 
  145.         Gosub DRARING
  146.       Until Extension_8_0338 >RASLIN
  147.     Else 
  148.       Screen 0
  149.       If Colour(0)=G and FAD>0
  150.         Screen 6
  151.          Extension_8_121C 6,0
  152.         On TITLE Gosub T1,T2,T3,T4,T5,T6
  153.         Add TITLE,1,1 To 6
  154.          Extension_8_12B2 6,0 To 0,1
  155.         Screen 0
  156.         Fade 1,0,$F,G,G
  157.          Extension_8_12B2 2-ANI,BLPC To 0,0
  158.         FAD=-1
  159.       Else 
  160.          Extension_8_12B2 1+ANI,BLPC To 0,0
  161.       End If 
  162.       Screen 7
  163.       Add BLPC,1,0 To 3
  164.     End If 
  165.     If OANI<>ANI
  166.       If TIME>300
  167.         OANI=ANI
  168.         Screen 0
  169.         Fade 1,G,G,G,G
  170.         FAD=1
  171.         Screen 7
  172.       Else 
  173.         FAD=1
  174.       End If 
  175.     End If 
  176.     Screen Swap 0 : Inc TIME
  177.   Loop 
  178.   Screen 0
  179.   Fade 3
  180.   For A=0 To 64
  181.      Extension_8_10C6 64-A
  182.      Extension_8_12B2 2-ANI,BLPC To 0,0
  183.     Add BLPC,1,0 To 3
  184.     Screen Swap 0 : Wait Vbl 
  185.   Next 
  186.    Extension_8_10A8 
  187.   Screen Close 0
  188.   Screen Close 1
  189.   Screen Close 2
  190.   Screen Close 6
  191.   Screen Close 7
  192. Pop Proc
  193. T1:
  194.   T2[8,"WELCOME TO"]
  195.   Paste Bob 0,32,1
  196.   T2[128,"                V1.6"]
  197. Return 
  198. T2:
  199.   T2[8,"CREDITS"]
  200.   T2[20,"-------"]
  201.   T2[56,"CODING"]
  202.   T2[80,"CHRIS HODGES"]
  203.   T2[112,"GRAPHICS"]
  204.   T2[136,"CHRIS HODGES"]
  205.   T2[152,"MICHAEL KLEINER"]
  206.   T2[168,"MATHIAS MISCHLER"]
  207.   T2[200,"MUSIC AND SFX"]
  208.   T2[224,"CHRIS HODGES"]
  209. Return 
  210. T3:
  211.   T2[8,"CREDITS"]
  212.   T2[20,"-------"]
  213.   T2[56,"ADDITIONAL IDEAS"]
  214.   T2[80,"MICHAEL KLEINER"]
  215.   T2[96,"PAUL-GERHARD GEBAUER"]
  216.   T2[112,"MICHAEL UFER"]
  217.   T2[128,"MATHIAS MISCHLER"]
  218.   T2[160,"MORAL SUPPORT"]
  219.   T2[184,"MICHAEL KLEINER"]
  220.   T2[200,"PAUL-GEHARD GEBAUER"]
  221.   T2[216,"MATHIAS MISCHLER"]
  222.   T2[232,"THOMAS BUETTNER"]
  223. Return 
  224. T4:
  225.   T2[8,"DEDICATED TO"]
  226.   T2[32,"MICHAEL KLEINER"]
  227.   T2[80,"GREETINGS TO"]
  228.   T2[104,"FRITZ, VINZ, AMIGAMAN"]
  229.   T2[120,"BRAUMEISTER, MERLIN"]
  230.   T2[136,"KRIEGSHELD, FROG, KAI"]
  231.   T2[152,"RED REBEL, THEGOD, VIP"]
  232.   T2[168,"LEMMING, MAGIC, HOLGER"]
  233.   T2[184,"SCHNEEMANN, OMER, CLAW"]
  234.   T2[200,"WOTAN, KILLER, RALLI"]
  235.   T2[216,"REYEM, MARVIN, HARRY"]
  236.   T2[232,"RALF, MARKUS, HANS"]
  237. Return 
  238. T5:
  239.    Extension_8_1204 14
  240.   T2[250,"IF YOU CAN READ THIS YOUR EYES ARE VERY GOOD!"]
  241.    Extension_8_1204 12
  242. Return 
  243. T6:
  244.   T2[8,"BRAUMEISTER RULEZ!"]
  245.   T2[40,"CALL"]
  246.   T2[56,"SIXPACK"]
  247.   T2[88,"MODEM"]
  248.   T2[112,"+49-631-33557"]
  249.   T2[128,"+49-631-33612"]
  250.   T2[160,"ISDN"]
  251.   T2[184,"+49-631-793023"]
  252.   T2[200,"+49-631-793025"]
  253.   T2[232,"ONLY LEGAL STUFF!"]
  254. Return 
  255. DRARING:
  256.   If WIN=0
  257.     If Z=0 : Extension_8_121C 7,0 : End If 
  258.     ZZ=((Z+ZP) and 63)+1
  259.     D2= Extension_8_1114(ZZ*T1+DD,700)
  260.     D3= Extension_8_1106(ZZ*T2+DD,700)
  261.     WW=PP*W
  262.     WIN=WW+1024
  263.   Else 
  264.     Z1=1024/ZZ : Z2=1024/(ZZ+S)
  265.     X1= Extension_8_1114(WIN,Z1)+MX+D2/Z1
  266.     Y1= Extension_8_1106(WIN,Z1)+MY+D3/Z1
  267.     X2= Extension_8_1114(WIN+W,Z1)+MX+D2/Z1
  268.     Y2= Extension_8_1106(WIN+W,Z1)+MY+D3/Z1
  269.      Extension_8_1016 X1,Y1 To X2,Y2,1,-1
  270.     X3= Extension_8_1114(WIN+W,Z2)+MX+D2/Z2
  271.     Y3= Extension_8_1106(WIN+W,Z2)+MY+D3/Z2
  272.      Extension_8_1016 X2,Y2 To X3,Y3,1,-1
  273.     X4= Extension_8_1114(WIN,Z2)+MX+D2/Z2
  274.     Y4= Extension_8_1106(WIN,Z2)+MY+D3/Z2
  275.      Extension_8_1016 X3,Y3 To X4,Y4,1,-1
  276.      Extension_8_1016 X4,Y4 To X1,Y1,1,-1
  277.     Add WIN,W*2
  278.     If WIN>2047+WW
  279.       WIN=0
  280.       PP=1-PP
  281.       Add Z,S
  282.       If Z>63
  283.         Z=0
  284.         If CHIP=0
  285.            Extension_8_1042 7,0 To 1+ANI*2+FRAME/4,FRAME and 3
  286.         Else 
  287.            Extension_8_1042 7,0 To 1+ANI,FRAME
  288.         End If 
  289.         Inc FRAME : Add ZP,-1
  290.         If FRAME=8-CHIP*4
  291.           ANI=1-ANI : FRAME=0 : DD=Rnd(1023) : T1=Rnd(5)+1 : T2=Rnd(5)+1
  292.           ZP=0
  293.         End If 
  294.       End If 
  295.     End If 
  296.   End If 
  297. Return 
  298. End Proc
  299. Procedure T2[Y,T$]
  300.   Text 160-Text Length(T$)/2,Y+Text Base,T$
  301. End Proc